﻿Public Class WarheadDamageProvider
    Public Shared Function CalculateDamage(ByVal warheadType As MissileAndWarheadTypes) As Integer
        Dim damage As Integer = 0

        If (warheadType = MissileAndWarheadTypes.Small) Then
            damage = RandomNumberProvider.GetRandomNumber(15, 20)
        ElseIf (warheadType = MissileAndWarheadTypes.Medium) Then
            damage = RandomNumberProvider.GetRandomNumber(20, 35)
        ElseIf (warheadType = MissileAndWarheadTypes.Large) Then
            damage = RandomNumberProvider.GetRandomNumber(30, 65)
        ElseIf (warheadType = MissileAndWarheadTypes.ExtraLarge) Then
            damage = RandomNumberProvider.GetRandomNumber(60, 100)
        End If

        Return damage
    End Function
End Class
